home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / program / prtfrm51.zip / FRMSRC.ZIP / FDEMO06.PAS < prev    next >
Pascal/Delphi Source File  |  1996-06-20  |  2KB  |  83 lines
  1. unit Fdemo06;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   StdCtrls, Forms, DBCtrls, DB, DBTables, Mask, ExtCtrls, PrnWin, Buttons, CB_Types;
  8.  
  9. type
  10.   TForm06 = class(TForm)
  11.     ScrollBox: TScrollBox;
  12.     Label1: TLabel;
  13.     EditSpeciesNo: TDBEdit;
  14.     Label2: TLabel;
  15.     EditCategory: TDBEdit;
  16.     Label3: TLabel;
  17.     EditCommon_Name: TDBEdit;
  18.     Label4: TLabel;
  19.     EditSpeciesName: TDBEdit;
  20.     Label5: TLabel;
  21.     EditLengthcm: TDBEdit;
  22.     Label6: TLabel;
  23.     EditLength_In: TDBEdit;
  24.     DBNavigator: TDBNavigator;
  25.     Panel1: TPanel;
  26.     DataSource1: TDataSource;
  27.     Panel2: TPanel;
  28.     Table1: TTable;
  29.     DBImage1: TDBImage;
  30.     DBMemo1: TDBMemo;
  31.     View: TBitBtn;
  32.     Exit: TBitBtn;
  33.     PrintWin1: TPrintWin;
  34.     Table1SpeciesNo: TFloatField;
  35.     Table1Category: TStringField;
  36.     Table1Common_Name: TStringField;
  37.     Table1SpeciesName: TStringField;
  38.     Table1Lengthcm: TFloatField;
  39.     Table1Length_In: TFloatField;
  40.     Table1Notes: TMemoField;
  41.     Table1Graphic: TGraphicField;
  42.     procedure FormCreate(Sender: TObject);
  43.     procedure ViewClick(Sender: TObject);
  44.     procedure ExitClick(Sender: TObject);
  45.   private
  46.     { private declarations }
  47.   public
  48.     { public declarations }
  49.   end;
  50.  
  51. var
  52.   Form06: TForm06;
  53.  
  54. implementation
  55.  
  56. {$R *.DFM}
  57.  
  58. procedure TForm06.FormCreate(Sender: TObject);
  59. begin
  60.   Table1.Open;
  61. end;
  62.  
  63. procedure TForm06.ViewClick(Sender: TObject);
  64. var
  65.   MyBookMark: TBookmark;
  66. begin
  67.   MyBookmark := Table1.GetBookmark;
  68.   PrintWin1.BeginPrint;
  69.   PrintWin1.DrawWindow( 1.5, poCenter, ScrollBox);
  70.   Table1.Next;
  71.   PrintWin1.DrawWindow( 5.5, poCenter, ScrollBox);
  72.   PrintWin1.EndPrint;
  73.   Table1.GotoBookmark(MyBookmark);
  74.   Table1.FreeBookmark(MyBookmark);
  75. end;
  76.  
  77. procedure TForm06.ExitClick(Sender: TObject);
  78. begin
  79.    Close;
  80. end;
  81.  
  82.  
  83. end.